home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / lotus / lotus030.dsk / CHECKBK.MPR / SCRIPT / A007ApprGlobObj897.s (.txt) < prev   
Null Bytes Alternating  |  1995-11-12  |  4KB  |  51 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2. Option Public
  3.  
  4. '++LotusScript Development Environment:2:5:(Forward):0:1
  5. Declare Sub StartCheck
  6. Declare Sub SetDefaultButtonText
  7. Declare Sub Removemessage
  8.  
  9. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10.  
  11. '++LotusScript Development Environment:2:2:StartCheck:1:8
  12. Sub StartCheck
  13.     If (currentview.body.transtype.text=("") Or (currentview.body.transtype.text="None")) Then
  14.         Messagebox("You must specify a transaction type of Check, Deposit, or Misc Withdrawl.")
  15.         currentview.body.checkradio.setfocus
  16.     Else
  17.         If currentview.body.voidbutton.text="Remove this transaction from the balance"  Then
  18.             removemessage
  19.             currentview.body.voidbutton.setfocus
  20.         End If
  21.     End If
  22.     
  23. End Sub
  24. '++LotusScript Development Environment:2:2:SetDefaultButtonText:1:8
  25. Sub SetDefaultButtonText
  26.     If currentview.name="Data Entry Screen" Then
  27.         If currentview.body.commitflag.text="1" Then
  28.             currentview.body.voidbutton.text="Remove this transaction from the balance"
  29.             startcheck
  30.         Else
  31.             currentview.body.voidbutton.text="Apply this transaction to the balance"
  32.         End If
  33.         If currentview.body.Transtype.text="Check" Then
  34.             currentview.body.Checknumber.visible=True
  35.             currentview.body.Depositnumber.visible=False
  36.         Else
  37.             If currentview.body.Transtype.text="Deposit" Then
  38.                 currentview.body.Checknumber.visible=False
  39.                 currentview.body.Depositnumber.visible=True
  40.             Else
  41.                 currentview.body.Checknumber.visible=False
  42.                 currentview.body.Depositnumber.visible=False
  43.             End If
  44.         End If
  45.     End If
  46.     currentwindow.repaint
  47. End Sub
  48. '++LotusScript Development Environment:2:2:Removemessage:1:8
  49. Sub Removemessage
  50.     Messagebox("This transaction must be removed from the balance before it can be modified.")
  51. End Sub